==============================================
House Vault *credits Jamie Ryan*
==============================================

Sub Main(Player as Long)

If getplayername(player) = "Dante" Then
	If GetPlayerDirection(Player) = Left Then
		PlayerWarp(Player, 2999, 3, 3)
	Else
		PlayerWarp(Player, 2999, 5, 3)
	End If
Else
	PlayerWarp(Player, 2999, 5, 3)
End If
End sub